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PREFACE 

This instant provides a convenient summary of the COBC 
Version 5.3 language which operates under control of t] 
following operating systems: 

■ NOS 1 for the CONTROL DATA® CYBER 170 Serie 
CYBER 70 Models 71, 72, 73, 74: and 6000 Series Comput 
Systems 

• NOS/BE 1 for the CDC® CYBER 170 Series; CYBER ' 
Models 71, 72, 73, 74; and 6000 Series Computer Systems 

COBOL 5 is designed to be a superset of the language specific 
in the American National Standard X3.23-1974, COBO 
Extensions to the standard language are indicated in this instai 
by shading. 

This instant provides a brief description of the major COBC 
language features. The instant is intended for programme 
familiar with COBOL 5. 

More detailed information can be found in the publicatioi 
listed below. 

Publication 
Publication Number 



COBOL Version 5 60497100 

Reference Manual 

COBOL Version 5 User's 60497200 

Guide 

COBOL Version 5 Report 60496900 

Writer User's Guide 

CDC manuals can be ordered from Control Data 
Corporation, Literature and Distribution Services, 
308 North Dale Street, St. Paul, Minnesota 55103. 
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SPECIAL FEATURES 

„ - I . r. ' • ..> . , ,,i i • i , 1,1 ... f 1374 AIIS ! i I. 
(X3.23-1974), the C0B0L5 compiler supports the following 

• < In Iv !) - in i -.. , ''■-[. -.' „ <W. li 
TOTIAUZli statement 

- Fv rJ -t i • .. ins] initio . " . . n ■ . i ' ■ 

i ft (TEAS .,• < ■ ",•■■• i 

>,1!«U '." 't « ' ! i ' li.*' ' !S <E i . » ; ' »* ' . he 

Symbolic dump of the Data Division (through the 
Termination Dump facility) at user request and/or tit 
program termination stowing data-names together with 

••■ ..t, . , i - , Sri ' i • •,-, ' „ r. . .. .- 1 !■" '. i 

■ jsaj is - is iiS ., i. u 

. - ! t [ h 'u, i ,,.• Lf-c-^i" vio I iiv sy^ ( 'c. ' i. n 

fj . . 1.1 ■ . r i.i i Pvt All ' i i J .' . 

COBOL 

i i : t; - U'k M i , - Ci - , ,i' .' .1 i l .K »)i 

, , i.,.u •= ,. pi i ' .'air ''I ''i 5 . Vi 

.i ■ . in; ; • -, ' ' on , i «* ". u> • Iii- .i ;'i i 
equivalence parameter of the execution call statement 

Specification by programmer of portions of working 
storage to reside in Extended Core Storage (ECS) 

User selectable dynamic table bounds checking 

Access to part of a data item through use of reference 
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PROGRAM EFFICIENCY HINTS 

The following options improve compilation time performance: 

Use the SY parameter of the COBOL 5 control statement 
if only compilation is desired. 

Use the TAF parameter of the COBOL 5 control statement 
to prevent loading of unnecessary modules when the job is 
to be executed using TAF. 

Avoid using the DB parameters of the COBOL 5 control 
statement unless program debugging is desired. 

Avoid using the LBZ parameter of the COBOL 5 control 
statement; if some fields have leading blanks, use the 
INSPECT statement. 

Do not restrict field length through either the use of the 
CM parameter in the job statement or the use of an MFL 
statement (NOS only). 

Do not use RFL statements. 

The following options improve execution time performance: 

Use same size, same sign convention, and same decimal 
point location for sending and receiving fields. 

Use index-names rather than subscripts. 

Use the SET statement to increment and decrement 
index-name values. 

Use the SYNCHRONIZED RIGHT clause for numeric data 
frequently referenced. 

Use the SAME RECORD AREA clause to save moves. 

Use the VALUE clause whenever possible to initialize 
WORKING-STORAGE instead of a MOVE statement. 

Use a binary table search if the data items in the table are 
ordered sequentially and the table contains more than eight 
entries. Use a serial search if the table contains less than 
nine entries. 

Make alphanumeric table and item sizes a multiple of 10 
characters. 

Align tables and items on word boundaries through the use 
of the SYNCHRONIZED clause, level 77 items, or 

automatic level 01 alignment. 
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Construct overlays (sections greater than 49) in such a 
manner that the overlays are executed only once. 

Give careful consideration to any decision to utilize the 
internal COBOL SORT. 

Represent subscripts and counters in binary (COMP-1). 

Place the most likely condition first for OR in a compound 
IF statement. Place the least likely condition first for 
AND in a compound IF statement. 

R trict aritl metie items other than COMPUTATIONAL-1 

or COMPUTATION 'I -4 to 9 digits or less. 

Do not manipulate large table entries in their table 

locations; move the matching argument to a work area. 

Avoid the use of unblocked data files. 

Avoid the use of multi-level subscripting. 

Avoid character comparison with items of unequal size. 

Avoid all on SIZE ERROR clauses on any arithmetic 
operation. 

Avoid passing parameters when calling another program; 
use the Common-Storage Section for shared data. 
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NOTATION 

[ ] Enclosed elements are optional. 

i I Only one element must be selected. 

[ ] ... or { \ . . . Repeat enclosed elements as needed. 

COBOL reserved words have preassigned meanings and appear 
in capitals. 

COBOL reserved words that are underlined are required; words 
not underlined can be omitted. 

Terms in lowercase letters represent words or symbols supplied 
by the programmer. 

Commas and semicolons are used optionally to improve 
readability; periods are required where shown. 

At least one space must follow all punctuation symbols. 
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COBOL 5 LANGUAGE ELEMENTS 

Word String of up to 30 alphanumeric characters, in- 

eluding embedded hyphens, which forms a user- 
defined word, a system-name, or a reserved word. 

Identifier Word that can be qualified, subscripted, or indexed. 

Literal String of characters that represents a specific 

value; numeric literal can be a string of up to 18 
digits 0-9, +, -, and decimal point; nonnumeric 
literal can be a string of up to 255 alphanumeric 
characters and must be enclosed in quotes. 

Statement Procedure Division verb with associated options. 

Sentence Series of one or more statements terminated by 
period. 

Paragraph Procedure Division sentences, Identification and 
Environment Division entries introduced by para- 
grapn name and terminated by period. 

Paragraph Word terminated by period used to introduce 
Name paragraph; user-defined in Procedure Division, pre- 

defined in Identification and Environment 
Divisions. 

Section Group of one or more paragraphs introduced by 

section header. 

Section Word followed by SECTION and terminated by 
Header period; user-defined in Procedure Division, prede- 
fined in Environment and Data Divisions. 

Entry Unit of description in Data Division; must be 

terminated by period. 
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IDENTIFICATION DIVISION 



IDENTIFICATION DIVISION . 
PROGRAM-ID . program-name. 
AUTHOR , [comment-entry] . . . 1 



INSTALLATION , [comment-entry] . . .1 



DATE-WRITTEN , [comment-entry]. . . ] 



DATE-COMPILED , [comment entry]. . .1 



SECURITY , [comment-entry] ... 1 



ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION. 



CONFIGURATION SECTION;* 



SOURCE-COMPUTER. 



computer-name 

[, WITH DEBUGGING MODE] 



OBJECT-COMPUTER. 



computer-name 

[, PROGRAM COLLATING SEQUENCE IS alphabet-name] 

f S EGMENT- L IMn IS egn t-nurr , 



i> nt t 01< R ' riOI SECTION d i al 



arcomij-iNAiviiiO. 



[, implementor-name IS mnemonic-name]. . . 



STANDARD-1 



V 'HABET dphabet-name IS 



ASCII-64 



literal-1 



( THRU ) 

) THROUGH ( lltera1 " 2 

ALSO literal-3 [, ALSO literal-4] . 
( THRU ) 

) through ! litera1 - 6 

ALSO literal-7 [, ALSO literal-8] 



[ , CURRENCY SIGN IS literal] 
[ , DECIMAL-POINT IS COMMA ] 



(QUOTE IS ( 
(QUOrtS ARK | 



\P0STR0PU1: 



s \ .1 rROi is 



f SEPAIiAII. I'llARAC IEK] 



[i SUB-SCHEM," IS 3Ub-sch< ) -name] 



SWITCH-n [IS mnemonic-name] 



[ON STATUS IS condition-name-l] [, OFF STATUS IS condition-name-2] "1 
[OFF STATUS IS condition-name-2] [, ON STATUS IS condition-name-l]J 



INPUT-OUTPUT SECTION . 

File-Control Entry 

Format 1 (Sequential File Organization) 

FILE-CONTROL . 

SELECT [OPTIONAL] file-name 

ASSIGN TO implementor-name-1 [, implementor-name-2] 
[; ORGANIZATION IS SEQUENTIAL ] 
[; ACCESS MODE IS SEQUENTIAL ! 
[; FILE STATUS IS data-name] 

[i RESERVE integer [ A ^Ajj 

f £}L , tor il] . 



Format 2 (Relative File Organization) 
FILE-CONTROL. 



SELECT file-name 
ASSIGN TO implementor-name-1 [, implementor-name-2] . . . 
. ORGANIZATION IS RELATIVE 



■name] 



RELATIVE KEY IS data-name 



SEQUENTIAL [, RELATIVE KEY IS data 
; ACCESS MODE IS { ( RANDOM 

DYNAMIC 

[ ; FILE STATUS IS data-name] 



I ; RESERVE integer [^J 

[ l^r literal]. 



Format 3 (Indexed File Organization, Direc File Organization ictual Key File Organization) 

FILE-CONTROL . 

SELECT ffle-name 

ASSIGN TO implementor-name-1 [,implementor-name-2] . . . 

( INDEXED ) 

ORGANIZATION IS { DIRECT J 

(SCTTOL-KEy) 

:RECORD KEY IS data-name 



( SEQUENTIAL 

; ACCESS MODE IS { RANDOM 

DYF5MC 



;ALTERNATE RECORD KEY IS data-name-1 [WITH DUPLICATES ASCENDING] 
( OMITTED j 



':' * ' «»e < . if t > l f ■ ■■ i. - ! 



.;»;•..:.. .v.;;; 






[;FILE STATUS IS data-name] 
[;USE literal .] 



Format i (Word- \ klress F ■• : irgf 1112 iti« n) 

FILE-CONTROL . 

SELECT file-name 

VSSI'.iN |i." iri.riUiiiriil..|--inii..:-l [. ininl^i'i'.'lt'.v— ii^.inr— i] 

; 2iiikl!ilS^2ii IS iii^iiiii^i— "' c ~- 

t VQRU AD )KESi KEY IS -in nam 

(sequential) 



H L__ MODE L RANDOM 



[, PILE STATUS 1- data-name] 

[; RESERVE " lU ^ [areas]] 

[; USE literal] . 



I-O-CONTROL. 



i ' y\ '< r i t t-v i Ip it r. ( [ nu < oli 1 ? n L i^ , f file i if_ 1 . . I 



MULTIPLE FILE TAPE CONTAINS 



tfile-name-1 i 

I psoudo-file-name-l/ 



[POSITION integer-l] 



; SAME 



f file-name-2 

)pS( i , iii i! I- Jj 

( record ] 

[ SORT ' 

[SORT-MERGE 



I [POSITION integer-2] . . . 



AREA FOR file-name-1 [, file-name-2] 



([END OF] (R£EL J \ 
J \ ) UNIT | \ 

■• =! [pi! {f^eTentor-name}] EVERY ) I integer-l RECORDS j 



OF file-name-2 



condition-name 



DATA DIVISION 

DATA DIVISION , 
f FILE SECTION .] 

j CO.M.UUN STOR AGK S r[ON I 

1" WORKING-STORAGE SECTION.] 

SEi-'ONDAK\-SIURAr,h [ iJJ_N | 

| LINKAGE SECTION.l 

[ COMMUNICATIONS SECTION .! 
f REPORT SECTION .! 

File Description Entry (File Section Only) 
FD file-name 



BLOCK CONTAINS [integer-1 TO] integer-2 



( records j 

■(CHARACTERS? 



[; CODE-SET IS alphabet-name] 
( RECORD IS ) 



i RECORD IS J "I 

DATA (RECORDS ARE) *»ta-name-l [, data-name-2] ... 

|; EXTERNAL ] 



( RECORDS ARE) ( STANDARD ) 
^SSk ) RECORD IS | ) OMITTED ] 



; VALUE OF implementor-name-1 IS /data-name- 



ime-1) f . , 



ementor-name-2 IS 



(data-name-2|l 
(literal-2 /) ' ' ' 



HM£E IS If*™' 1 } LINES [• WITH FOOTING AT {f^— 2 }] 
[.LINES AT TOP ^^ 3 }] [. LINES AT BOTTOM {^~ 4 }] 



; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS r i ■ • it.. Ij-ijjjj 

RECORD IS VARYING IN SIZE [[FROM integer-1 ] < 

I [TO integer-2] CHARACTERS] [DEPENDING ON data-name] ' 



; RECORDING 


MODE 


IS 


ui-.cr.iAi.i 
niNAiiy ( 


(report IS 

(REPORTS 


1 
4REJ 


report-name-1 [, 



e-2]. . . 



[record-description-entry] . . . 

Sort-Merge File Description Entry (File Section Only) 
SD file-name 



; RECORD 



{CONTAINS [integer-1 TO] integer-2 CHARACTERS > 
IS; DRYING IN SI . [FROM irrteg J 

[TO Integra .,' UlACTERSJ 
i EPE [I GO ( ta-narm il . . 



( RECORD IS ) 
'' ££™. { records AREj d ata-name-l [, data-name-2] 



[record-description-entry ] . . 



Communication Description Entry (Communication Section Under NOS Only) 
Format 1 
CD ed-name; FOR INITIAL INPUT 



[[; SYMBOLIC QUEUE IS data-name-1 ] 



SYMBOLIC SUB-QUEUE-1 
SYMBOLIC SUB-QUEUE-2 
SYMBOLIC SUB-QUEUE-3 
MESSAGE DATE 



MESSAGE TIME 



SYMBOLIC SOURCE 



TEXT LENGTH 



END KEY 
STATUS KEY 



MESSAGE COUNT 



IS 


data-name-2] 


IS 


data^iame-3] 


IS 


data-name-4 ] 


IS 


data-name-5 ] 


IS 


data-name-6 ] 


IS 


data-name-7] 


IS 


data-name-8] 


IS 


data-name-9 J 


IS 


data-name-10] 


IS 


data-name-ll] 



[ data-name-1, data-name-2, data-name-ll ] 



IS 


data-name-l] 


IS 


data-name-2] 


IS 


data-name-3] 



Format 2 

CD cd-name; FOR OUTPUT 

[; DESTINATION COUNT 

[; TEXT LENGTH 

f; STATUS KEY 

[ " 

f; INDEXED BY index-name-1 [,index-narae-2] ...1 
|~; ERROR KEY IS data-name-4 ] 

[; SYMBOLIC DESTINATION IS data-name-5 ] 



; DESTINATION TABLE OCCURS integer-2 TIMES 



Report Description Entry (Report Section Only) 

RD Report-name 

[; CODE literal 1 

( CONTROL IS t) data-name-1 [, data-name-2 . . . ] 
• \ CONTROLS ARE h FINAL [, data-name-1 [, data-name-2]. . .] 



[LIMIT IS 1 
l LIMITS ARE J 



JPAGE I LIMITS ARE J integer-1 

[ , FIRST DETAIL integer-3 ] [, LAST DETAIL integer-4] 

[, FOOTING integer-5] 
report-group-deseription entry } — 



[ LINES ] [.HEADING integer-2 ] 



Data Description Entry (File, Common-Storage, Working-Storage, Secondary-Storage, 
Linkage, and Communications Sections) 



Format 1 



level-number ',', ,V '[ [; REDEFINES data-name-2] 

[; blank when zero ] 
( justified ) 

jjT^T | RIG1 



/OCCURS integer-1 TIMES 



( ASCENDING ) 
DESCENDING KEY IS data -" ame -! [• data-name-2] 



f INDEXED BY index-name-1 [, index-name-2] . . .1 

I QCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-1 

( ASCENDING 1 

) DESCENDING ( KEY IS dat£| - name - 2 [■ data-name-3] . . 

nNDEXED BY index-name-1 [, index-name-2] ... 



IS character-string 



( LEADING ) 
[SIGN IS] < TRAIUNG ( [ SEPARATE CHARACTER] 



( synchronized ) [" left 

(SYNC j [ RIGHT 



; [USAGE IS 1 


/ COMPUTATIONAL 
1 COMP 

1 eoTTPi TATIONAL-1 


1 COMP-i 

1 COWUTATIONAL-2 

|rarFrrvrio>:AL-j 


1 <"OMIM 

J DfSPLAY 
\ INDEX 



[; VALUE IS literal] 



Format 2 

66 data-name-1; RENAMES data-name-2 
Format 3 



( THRU ) 

| THROUGH ) data-name-3 



( THRU ) 



, literal-3 



( THRU 

) THROUGH 



Report Description Entry (Report Section Only) 
RD report-name 

[; CODE literal] 



) THROUGH ( 



( CONTROL IS ) j data-name-1 [, data-name-2] . . . 
' ( CONTROLS ARE) I FINAL f, data-name-1 [, data-name-2] 



££ Emits are] inte « er ~ 1 [lmes] C head1N0 i"teser-2] 

[, FIRST DETAIL integer-3] [, LAST DETAIL integer-4] 
[, FOOTING integer-5] 



j report-group-description entry [ . . . 

Report Group Description Entry (Report Section Only) 
Format 1 

01 [data-name-l] 

(integer-1 [ON NEXT PAGE]) 



; LINE NUMBER IS 



I PLUS integer-2 



(integer-1 1 

■ ™.li """"i -' . PLUS integer-2' 
| NEXT PAGE I 



TYPE IS 



| REPORT HEADING } 

m " I 

( PAGE HEADING | 

m ' ' \ 

( CONTROL HEADING 

i CH 

( DETAIL 

|DE 

( CONTROL FOOTING) 

\£l J 

[ PAGE FOOTING ) 

m I 

( REPORT FOOTING ) 

m i 



( data-name-1 
) FINAL 



!data-name-2) 
FINAL ( 



[; r USAGE IS] DISPLAY !. 



Format 2 

level-number [data-name] 

( integer- 1 [ON NEXT PAGE ]) 
; LINE NUMBER IS ^ in , eger _ 2 ' | 

[; [USAGE IS] DISPLAY ], 

Format 3 

level-number [data-name] 

[; BLANK WHEN ZERO] 

[; COLUMN NUMBER IS integer] 

[; GROUP INDICATE] 



( JUSTIFIED ) 
; {iii RIGHT 



LINE NUMBER IS i 



| integer-1 [ON NEXT PAGE]) 



PLUS integer-2 



( PICTURE ) 

\ p._ > IS character-string 



SOURCE IS identifier 



VALUE IS literal 



j; SUM identifier-1 [, identifier-2] . . . f uPON data-name-1 [, data-name-2] 
( data-name~3 1 



•]}--- ( 



( FINAL 



[ ; [ USAGE IS ] DISPLAY "| . 



PROCEDURE DIVISION 

PROCEDURE DIVISION [USING data-name-1 [, data-name-2] . . .1 . 

[ DECLARATIVES . 

< section-name SECTION [segment-number], declarative-sentence. 

paragraph-name. [sentence]. . . . . A . . . 
END DECLARATIVES .] 
< section-name SECTION [segment-number]. 

paragraph-name, [sentence] . . . ...]>... 

PROCEDURE DIVISION [ "uSING data-name-1 [, data-name-2] . . .1 . 

■J paragraph-name, [sentence] ...>... 



ACCEPT identifier [FROM mnemonic-name] 

' DATE 

j DAY 
ACCEPT identifier FROM v , , a v_« F _ WEEK 



I! 

( DAY-OF Wfc 
TIME 



ACCEPT cd-name MESSAGE COUNT 



M£ {fdenUfier-l} [', identffier-2] • • • 12 identifier-m [ROUNDED] [, identifier-n [ROUNDED]] . . . 
[; ON SIZE ERROR imperative-statement] 

*2E {ISfiU} {; IX,} [; !Sier- 3 ] • • ■ 2™£ ^™°™ r ROUNDED ! 

^, identifier-n [ROUNDED]l ... [; ON SIZE ERROR imperative-statement] 

(C ORRESPONDING ) 

-, RR " } identifier-1 TO identifier-2 [ ROUNDED ] , identifier-3 [ ROUNDED ] . . .1 



[; ON SIZE ERROR imperative-statement] 



ALTER procedure-name-1 TO | PROCEED TOJ procedure-name-z 

[, proeedure-name-3 TO [ PROCEED TO] prooedure-name-4 I . . . 
CALL { '* mtifier l [using data-name-1 [,data-name-2] . ■ .1 [; ON OVERFLOW imperative-statement] 

f»Nf-Ki (identifier-1) (" , identifier-2 ] 
CANCEL \literal-l f |..Uteral-2 J ■" 



CLOSE file-name-1 



( REEL ) [WITH NO REWIND] 
| tTNTT~ f [FOR REMOVAL J 



WITH 



| NO REWIND > 
| COCK / 



(REEL1 f WITH NO REWIND] 
•j UTOT f L FOR REMOVAL j 



I NO REWIND* 



CLOSE relation-name [WITH LOCK]. . . 

COMPUTE identifier-1 [ROUNDED ]R identifier-2 [ ROUNDED ]j. . . 

j FROM | 

<= > arithmetic-expression [; ON SIZE ERROR imperative-statement] 

I EQUALS I 



COt r -'JP |id«it , ,1 > 



j 



'in 



I EQUALS 1 



CONTINUE 



COPY text-name 



, ole* s < 



OF. 

tw ( library-name 



REPLACING 



/ == pseudo-text-1 ■ 
) identifier-1 
iliteral-1 
' word-1 



/ -= pseudo-text-2 == j 
) identifier- 2 ( 

i literal-2 
I word-2 ! 



DELETE ( file-name RECORD [; INVALID KEY imperative statement] I 
( FILE ) f ile-name [ . . . ' 

DISABLE {oUTPUT [ TERMINAL -|}ed-name WITH KEY { ^"""f" 1 } 

DISPLAY {fdentmer-l} [', MenttfierJ- • • [UPON mnemonic-name] [WITH NO ADVANCING] 



iuter'al-l 1- " 1 } INT0 Mentifier-2 [ROUNDED] \, identifier-3 [ ROUNDED ]]. . . 



[; ON SIZE ERROR imperative-statement ] 



DIVIDE i identifier-It , NT0 (identifier-21 GIVINQ identifier _ 3 [ROUNDED] 

Uiteral-1 ( (hteral-2 ) L J 

I", identifier-4 [ROUNDED]! ... [; ON SIZE ERROR imperative-statement] 

DIVIDE (Wentifier-ll By I identifier-21 GIV[NG identirier - 3 [ROUNDED] 

Uiteral-1 ( — Uiteral-2 ) — — — L J 

, identifier-4 [ ROUNDED ]] . . . [; ON SIZE ERROR imperative-statement] 

DIVIDE /jdentifier-11 [NT0 (identifier-21 identifier-3 [ ROUNDED ] 
(literal-1 ) Uiteral-2 ) L J 

REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 
DIVIDE |, i ; d ™' i l ti 1 er "H BY j,'*""" 61 " 2 } GIVING identifier-3 [ ROUNDED ] 



Uiteral-1 



— lliteral-2 



REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 



ENABLE {output [ terminal ] } ed-name WITH KEY | 



identifier-ll 
literal-1 i 



COMPASS 
FOHTRAN-X 
FTFT5 ~ 



routine-name 



, data name-1 , 

USING lfUe-™ me - ] I 

~ - >roc Ti'^ nai v<--\ \ 

! literal -I ' 



\ , da-n-n;-'ne-2 

ptoec^urf p=. ne-2 
literal-2 



EXIT [PROGRAM], 



GENERA TE i data-name ) 
(report-name) 

GO TO [procedure-name-l] 

GO TO procedure-name-l [, procedure-name-2] . . . , proeedure-name-n DEPENDING ON identifier 



IP condition; [THEN] i SENTENCE } 



ELSE statement-2 . . . [; ENTMF] i 
ELSE NEXT SENTENCE 



EOTFIT" 



Conditional expressions include: 



( identifier- 1 ) 

(literal-1 ' 

( arithmetic-expression-1 ) 



IS [NOT] GREATER THAN 

IS [NOT] _> 

IS [NOT] LESS THAN 

IS [ NOT ] _<. 

IS [ NOT ] EQUAL TO 

IS [ NOT ] _=_ 

IS UNEQUAL TO 

EQUALS 

EX( (H>, 



lidentifier-2 I 

' literal-2 ' 

(arithmetic-expression- 2 j 



arithmetic-expression IS [NOT] I NEGATIVE \ 
I ZERO I 

( NUMERIC ) 
identifier IS [NOT] j ALPHABETIC j 

( ISINOT] EQUAL TO | 

. . I IS [ROT] S ( 

boolean *xprc«ion-J , s UNEQl , AL T0 ( 

( EQTJATS I 

condition-name 

INITIALIZE dentifier-J [ identifier-2] . . . 



boolean expression- 



/ ALPHABETIC 
1 ALPHANUMERIC 
REPLACING ' N I.I XI ERIC \ Urt* 

| ^LPHANUMERIC'EDTTfO 
( NUMERIO-KL'ITLD 



INITIATE report-name-1 [, report-name-2] 



TA BY |i*ntifier-3) 



literal f 



INSPECT identifier-1 TALLYING 



((ALL ) (literal-1 

identifier-2 FOR <{, 'A LEADING ( (identifier-3 

I CHARACTERS 



( BEFORE ) 

(AFTER I 



(literal-2 ) 
Udentifier-4f 



INSPECT identifier-1 REPLACING 



(literal-4 



CHARACTERS BY 



— )identifier-6| 



) ( BEFORE ) 

J ( AFTER ) 



(BEFORE) (literal-5 

INITIAL 



(£!£ )( (nteral-3 ) (literal-4 

/LEADINGS, {. , .... J BY {.. .... „, 

1 A' )identifier-5l — |identifier-6( 

FIRST ]/ * ' 



(identifier-7 



( BEFORE ) (literal-5 

JAFTER INITIAL identifier-7 



INSPECT identifier-1 TALLYING 



identifier-2 FOR 



(( ALL ) (literal-1 

1 1 LEADING) (identifier-3 

( CHARACTERS 



( BEFORE ) 
(AFTER I 



(literal-2 
iidentifier- 



REPLACING 



!literal-4 
identifier-6 



[ ALL 

/ LEADIN G 

/FIRST 



( BEFORE ) ( literal-5 

UrmTi INITIAL identifier-7 



( 1 (literal-3 \ (literal-4 

'( )' (identifier-5J — (identifier-6 



( before ) 

( AFTER j 



(literal-5 
f identifier-7 



S ( DESCENDING ) 

to MERGE file-name-1 ON | ASCENDING > KEY data-name-1 [, data-name-2] . . 

( DESCENDING ) 
0N (ASCENDING ( KEY data -iame-3 [, data-name-4] 

[COLLATING SEQUENCE IS alphabet-name] 

USING file-name-2, file-name-3 [, file-name-4] . . . 

jo 

, GIVING file-name-5 
MOVE {jf t e e n ™ 1 er " 1 } TO identifier-2 [, identifier-3] . . 



OUTPUT PROCEDURE IS section-name-1 



( THRU ) 

(THROUGH ( seetion-name-2 



( CORRESPONDING ) 
^°I£ (CORR \ Wentifier-1 TO identifier-2 [, identifier-3] . 



MULTIPLY i'dentifier-11 BY identifier -2 [ROUNDED] f, identifier-3 [ROUNDED]]- • • 
— ^— ■ — Uiteral-1 ) — L J 

[; ON SIZE ERROR imperative-statement] 
MULTIPLY {literal-f 1 "" 1 } SI {£flT1 0IV1NG Wentifler-3 [ROUNDED] 
[, identifier-4 [ROUNDED]] ... [; ON SIZE ERROR imperative-statement] 

[ REVERSED ] [ [- REVERSED l] 

INPUT file-name-1 [ WITH no REWIND ] [• file - name - 2 [wiTH NO REWIND J J ' ' ' 

, OUTPUT file-name-3 [WITH NO REWIND ] [, file-name-4 [WITH NO REWIND ]] . . .1 

1-0 file-name-5 [, file-name-6] . . . 

EXTEND file-name-7 [, file-name-8] . . . 

THP1 u .-:•.' !*'ir.""'- MD.j \ 

" _ : r \rt- Ti •• < ' • • • 



PERFORM procedure-name-1 n fHROUGH ) pr00edure " name 'I I ' " ' ' ! ' " ' r "' I 

PERFORM r p roeedure-name-l ri|^ UGH i proeedure-name-2ll | Integer-?" 1 } T1MES 
[: imperative-statement; ENIVPERFORM ] 

PERFORM procedure-name-1 17 j^p UOH \ proeedure-name-2l 1 I"; WITH TEST j |J^?£- ""', 
UNTIL condition-1 | I- ,' - itatera nt; END-PERFORM] 

PERFORM |procedure-name-l r|^|^ UGH |proeedure-name-2ll j"; WITH TEST I "n'ER E }] 

VAHYMg {tSSSS;tl} S°M IJSS^ 2 } 21 lifter^ 3 } UN™ condition-! 

[aPJ- {;™ r m 1- 3 } 252" {£|? l4 | H K^ ^condition, 
[imperative-statement; KND-PERFORM ] 



PURGE cd-name 

READ file-name [NEXT] RECORD [ INTO identifier] [; AT END imperative-statement] 

READ file-name RECORD [INTO identifier] [; KEY IS data-name] [; INVALID KEY imperative-statement] 

ftfc'AD '.-.mi ,i mm- [ NEXT ] RECOR > ( , J ." END im[ rative ••><•> ' nt] 

2j \b Latlon-nam RECORI [ KEY IS In 1 nej | INVALID kE"i mj ti - itf n] 

RECEIVE cd-name | SEGMENT } jNTO identifier-1 [; NO DATA imperative statement] 

f i l lI ) , 3 idi it (I i .)" p - '.if < <-»= I . . . 
MPLACE Off 

RELEASE record-name [FROM identifier] 

RETURN file-name RECORD [ INTO identifier] ; AT END imperative-statement 

REWRITE reeord-name [ FROM identifier] [; INVALID KEY imperative-statement] 



SEARCH identifier-1 VARYING 



(index-name 
Udentifier-2 



; WHEN condition-1 



j imperative-statement-2t 
NEXT SENTENCE ( 



"*} [i AT END imperative-statement-l] 

[ 



WHEN condition-2 



( imperative-statement-3\ 
(NEXT SENTENCE I 



[; E ND-SEAHCII '; 
SEARCH ALL identifier-1 [; AT END imperative-statement-l] 

( EQUALS 
) data-name-1 J IS EQUAL TO 
(>S = 

^ condition-name-1 



; WHEN 



identifier-3 

literal-2 

arithmetic-exppession-1 j 



SI EQUALS 

data-name-2 { IS EQUAL TO J 
l»= ) 

condition-name-2 

(imperative-statement-2l -r. : i-,»,w mY»'**ii¥ 
•JNEXT SENTENCE f L ; ^ND-btAKCtt J 



identifier-4 

literal-3 ' 

arithmetie-expression-2 ] 



SEND cd-name FROM identifier-1 

/ WITH identifier-2 ) 

SEND ed-name FROM identifier-1 ! JHS JS. 
) WITH EMI 

\ WITH EOT I 



)/identifier-3) 



I BEFORE 1 ADVANCmG ))1 integer i [lSes]) I 

( J ( mnemonic-nam** I ' t 



\ AFTER 



( mnemonic-name I 
J PAGE / 



SET ' 'idex-name-l [, index-name-2] . . . j TQ | index-name-3 ) 

identifier-1 [, identifier-21 ... — identifier-3 / 

I J J ( integer-1 I 



SET index-name-4 [, index-name-5] . . . 



(UP BY ) | identifier-4 
| DOWN BY j ) integer-2 



(S-OST \ 

meri:;f. | 

a 1 jS_£Lii 111 

SET .' < l ' KOi;RAM ) 



| SuRT-MF.R.:E ,' ''"LI-MIN.i SEQUENCE 



i (> t ,lphri^^r-!Mri^ 



-ODE-SET EOF I ''■'•--""""•-I [• file-name-J ] . ■ .1 ' 



• r ' memo i i-:jtp j I, mjici ni inn.o 7 ! To .- , 

— | liliii j 



... r , I n ' 



SORT file-name-1 ON 



DESCENDING ) 
ASCENDING 1 



KEY data-name-1 [, data-name-2] . 



( DESCENDING ) 
0N ) ASCENDING ( KEY data - name - 3 [• <tata-name-4] 



i 'in ) PI.IC H'ES IN OKI* ! 
[COLLATING SEQUENCE IS alphabet-name] 



| INPUT PROCEDURE IS section-name-1 



USING file-name-2 [, file-name-3 ] . . 



( THRU 

( THROUGH 



section-name-2 



OUTPUT PROCEDURE IS section-name-3 



( THRU 

) THROUGH 



seetion-name-4 



I GIVING file-name-4 



START file-name 



IS EQUAL TO 
EQUALS 

i IS - 

I L tXUS 

, IS GREATER THAN 

IS > 
| IS NOT LESS THAN 
I IS NOT < 



[; INVALID KEY imperative-statement] 



START relation-name 



IS EQUAL TO 
EQUALS 
IS = 
KXCEEDS 



IS r.RF.ATER THAN | 

IS> 

IS NOT LESS THAN 

IS NOT< 



|"; INVALID KEY imperative-statement] 



( run 



(RUN 
£2E literal 



STRING (Wentifier-l) I", identifier^] delimited BY jilter'al 
Uiteral-1 ) L. literal-2 J — — — ) <, I7F 



identifier-3 

3 
SIZE 



(identifiers! T, identifier-Si _ DELIMITED BY f Uteal-T"' 6 
Uiteral-4 / L literal-5 J ■■ (SIZE 

INTO identifier-7 [WITH POINTER identifier-8] [; ON OVERFLOW imperative-statement] 
SUBTRACT {Identmer-ll [\ Kfier-2j • ■ ■ £HOM identifier-m [ROUNDED] 
I, identifier-n [ ROUNDED ]] . . . [; ON SIZE ERROR imperative-statement] 

SUBTRACT & er ?j A [' l tB % 2 ,1 . . . FROM (" ter t aI : m I 
udentifier-lj L, identmer-2J tidentifier-mf 

GIVING identifier-n [ ROUNDED ] I", identifier-o [ ROUNDED ]] . . . 

[; ON SIZE ERROR imperative-statement] 



( CORRESPONDING ) 
SUBTRACT < > identifier-1 FROM identifier-2 [ROUNDED] 

f. iden .. . [ Lll^Jii'J-^I 1 ' • • [i ON SIZE ERROR imperative-statement] 
SUPPRESS PRINTING 

TERMINATE report-name-1 [, report-name-2] . . . 
UNSTRING identifier-1 

[ delimited by [all] {"'1 [• 2£ [*!£] {IS-f" 3 }] • • •] 

INTO identifier-4 [, DELIMITER IN identifier-5] [, COUNT IN identifier-6] 

[, identifier-7 [, DELIMITER IN identifier-8] [, COUNT IN identifier-9]J . . . 

[WITH POINTER identifier-10] [ TALLYING IN identifier-ll] 
[; ON OVERFLOW imperative-statement] 



USE AFTER STANDARD 



( EXCEPTION ) 



(ERROR 






PROCEDURE ON 



file-name-1 [, file-name-2] 
INPUT 



1-0 
EXTEND 



USE BEFORE REPORTING identifier. 



USE FOR DEBUGGING ON 



''TALL REFERENCES OF] identifier-1^ 
1 procedure-name-1 

file-name-1 
I cd-name-1 
, ALL PROCEDURES 



[ALL REFERENCES OF] identifier-2 

procedure-name-2 

file-name-2 

cd-name-2 

ALL PROCEDURES 



•' " ,0 " HASHING Of .,i. .,,,.- I [, fit i mt-?j 



USE FOR A CC ESS CONTROL 



INPUT 

Ito — | 

) I NPUT 1-0 | 



\ • it j "« p nif 



F0R (REALMS J (J 



i » FOR DI ID1 DCK Of »', ,f "' „™ m J I- " " narae ] 
WRITE record-name [FROM identifier-l] 



( BEFORE ) 
(AFTER I 



ADVANCING 



!fidentifier-2l [LINE ~| 
(integer f LlINES 
/mnemonic-name I 
J PAGE / 



(END-OF-PAGE) 



EOP 



? imperative-statement 
WRITE reeord-name [FROM identifier-l] [; INVALID KEY imperative-statement] 



COBOL5 CONTROL STATEMENT 

The COBOL5 control statement consists of the word COBOL5 
optionally followed by a parameter list used to specify 
compilation selections. Parameters can be specified in any 
order. A comma is the only valid parameter separator. The | 
complete control statement is terminated by either a period or 
a right parenthesis. Default parameter values might be 
changed by individual installations. 

COBOL5. 

COBOL5(parameter list) [comments] 

• ANSI (ANSI Extension Diagnosis) 

Omitted Non-ANSI extensions allowed 

ANSI Non-ANSI extensions diagnosed as 

ANSI=T trivial errors 

ANSI=F Non-ANSI extensions diagnosed as 

fatal errors 

ANSI=NOEDIT Numeric display items are not edited 

by the DISPLAY statement 

ANSI=77LEFT Level 77 items are stored SYNC LEFT 

ANSI=AUDIT Equivalent to selecting both 

ANSI=NOEDIT and ANSI=77LEFT. 
Non-ANSI reserved words are not 
recognized as reserved words 



APO (Apostrophe Character) 



Omitted 

APO 

B (Binary Output) 

Omitted 

B 

B=0 

B=lfn 



Nonnumeric literals delimited 
quotation mark character 



Nonnumeric literals 
apostrophe character 



delimited 



by 
by 



Binary output on file LGO 
Binary output on file BIN 
No binary output produced 
Binary output on file lfn 
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BL (Burstable Listing) 

Omitted Triple space separates listing sections 

BL Page eject occurs between listing 

sections 

CC1 (COMP Equate to COMP-1) 

Omitted COMP data items stored and 

processed as COMP items 

CC1 COMP data items stored and 

processed as COMP-1 items 

D (Database Sub-Schema File Identification) 

Omitted No SUB-SCHEMA clause allowed in 

D=0 source program 

D Sub-schema for CDCS interface on 

file with same name as sub-schema 

D=lfn Sub-schema for CDCS interface on 

file lfn 

DB (Debugging Selection) 

Omitted No DB parameter options selection 

DB=0 

DB=B Executable code produced regardless 

of all errors in source program 

DB=DL Debugging lines compiled as exe- 

cutable code 

DB=RF Reference modification values are 

checked during execution to ensure 
that values are within bounds 

DB=SB Subscript and index references 

checked during execution for 
out-of-bounds references 

DB=TR Program execution flow traced 

DB Equivalent to DB=DL/SB/B 

Slashes are used to separate multiple options selected for 

the DB parameter. 



E (Error File Name) 

Omitted Error information written on file 

E=0 OUTPUT 

E Error information written to file ERR 

E=lfn Error information written on file lfn 

EL (Error Level Reported) 

Omitted W, F and C level errors listed 

EL=W 

EL F and C level errors listed 

EL=F 

EL=T T, W, F, and C level errors listed 

EL=C C level errors listed 

ET (Error Termination) 

Omitted Next control statement executed after 

program termination 

ET=F Compiler aborted by F or C level errors 

ET=T Compiler aborted by T, W, F, or C 

level errors 

ET=W Compiler aborted by W, F, or C level 

errors 

ET=C Compiler aborted by C level errors 

FDL (Fast Dynamic Loader Processing) 

Omitted All subprograms must be resident at 

the same time. CALL statement must 
specify a literal with first 7 
characters unique in. run unit. CDCS 
sub-schema cannot be used by 
subprograms 

FDL Equivalent to FDL=FDLFILE 

FDL=lfn Literal, identifier, or program name 

longer than 7 characters allowed in 
CALL statement. CDCS sub-schema 
can be used in subprograms. FDL file 
on file lfn. 



• FIPS 

Omitted No FIPS diagnostics issued 

FIPS Equivalent to FIPS=4 

FIPS=n Language features above the specified 

FIPS level are diagnosed; n specifies 
level 1, 2, 3, or 4 

The parameters ANSI and EL=T must be specified to obtain 
a listing of FIPS diagnostics. 

• I (Input File Name) 

Omitted Source program on file INPUT 

I Source program on file COMPILE 

I=lfn Source program on file lfn 

• L (Listing File Name) 

Omitted Source listing and selected listings on 

file OUTPUT 

L Source listing and selected listings on 

file LIST 

L=0 No listing produced 

L=lfn Source listing and selected listings on 

file lfn 

• LBZ (Leading Blank Zero) 

Omitted Numeric fields with leading blanks 

treated as errors 

LBZ Leading blanks in numeric fields 

treated as zeros 

• LO (Listing Options) 



Omitted 
LO=S 


Source program listed 


LO=-S 


. Source program not listed 


LO=M 


Data map listed 


LO=0 


Object code and COMPASS mnemonics 

listed 
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LO=R 
LO=0 

LO 



Cross reference map listed 
No listing produced 
Equivalent to LO=S/M/R 



Slashes are used to separate multiple options selected for 
the LO parameter. 

MSB (Main Subroutine Indicator) 

Omitted Source program compiled normally 



MSB 



Source program compiled 
subroutine with COBOL initiation 



The MSB parameter should be used only when the COBOL 
program is called by a program written in a language other 
than COBOL. 



PD (Print Density) 

Omitted 
PD=6 



Listings specified by E and L 
parameters single spaced at 6 lines per 
inch 



PD 
PD=8 



PD=3 



PS (Page Size) 
Omitted 

PS=n 



Listings specified by E and L 
parameters single spaced at 8 lines per 
inch 

Listings specified by E and L 
parameters double spaced at 6 lines 
per inch 

Listings specified by E and L 
parameters double spaced at 8 lines 
per inch 



Number of lines on output page 
calculated by system 

Number of lines on output page 
indicated by n 



PSQ (Program Sequence) 



Omitted 



Compiler-generated sequence numbers 
used for all diagnostics 



PSQ Sequence numbers in columns 1 

through 6 of each line used for all 

diagnostics 

PW (Page Width) 

Omitted Output lines 136 characters in length 

PW Output lines 72 character in length 

PW=n Output lines n characters in length, 

136 maximum 

SB (Subcompile Indicator) 

Omitted Program compiled as main program 

SB Program compiled as subprogram 

SY (Syntax Check) 

Omitted Source program compiled and 

executable code generated 

SY Source program checked for correct 

syntax; no executable code generated 

TAF (TAF Program) 

Omitted Program runs in non-TAF environment 

TAF Program runs as NOS TAF task 

TDF (Termination Dump Indicator) 

Omitted No termination dump 

TDF Termination dump is written to file 

TDFILE 

TDF=lfn Termination dump is written to file lfn 

U (Update File Name) 



Omitted 
U=0 


No update file created 


u 


COMPASS line images written on file 
COMPS 


U=lfn 


COMPASS line images written on file 
lfn 
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UCI (Unpack COMP-1 Items) 

Omitted COMP-1 items processed in COMP-1 

format 

UCI COMP-1 items converted to integer 

format before processing 

X (Copy Text File Name) 

Omitted UPDATE source library on file OLDPL 

X=0 

X UPDATE source library on file NEWPL 

X=lfn UPDATE source library on file lfn 
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SAMPLE COBOL 5 DECK STRUCTURES 

Compiling a COBOL 5 source program. 




/COBOL5. 

7 /ACCOUNT Statement (NOS/BE only) 
3 /CHARGE Statement (NOS only~ 



/USER Statement (NOS only) 



/job Statement 



Compiling and executing a COBOL 5 source program. 



/Data Deck 




/ACCOUNT Statement (NOS/BE only) 



CHARGE Statement (NOS only) 



/ USER Statement (NOS only ) 
/job Statement 
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Executing a COBOL 5 object program. 




/ Data Deck 



/ EXECUTE 



'LOAD,P ROG1. "] 

/ATTACH, PROG1,IP=MINE. (NOS/BE only) 



/ATTA CH.PROG1. (NOSonlyl 
/ ACCOUNT Statement (NOS/BE onlyl 



CHARGE Statement (NOS only) 

/ USER Statement (NOS only) 



/job Statement 



Compiling and executing a COBOL 5 main program and ( 
COBOL 5 subprogram. 




/ ACCOUNT Statement (NOS/BE onlyT 



9 / CHARGE Statement (NOS only) 



/ USER Statement (NOS only) 



/job Statement 
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Compiling and executing a COBOL 5 main program with a previ- 
ously compiled subprogram. 



/ Data Deck 



9 /Binary Subprogram Deck 




'LOAD.INPUT. 



/COBOL6. 



ACCOUNT Statement (NOS/BE only) 



CHARGE Statement (NOS only) 



/ USER Statement (MPS only) " 
/job Statement 



COBOL 5 RESERVED WORD LIST 



ACCEPT 
ACCESS 

ACTUAI.-KKY 
ADD 

A DDK ESS 
ADVANCING 
AFTER 
ALL 

' ,1 iABET 
ALPHABETIC 



COLUMN 
COMMA 



AiPHANUMIifflC-EDIrHD 

ALSO 

ALTER 

ALTERNATE 

AND 

ANY 

/."■Jo F.OPII1 

4PPLY 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 

BEFORE 



BLANK 
BLOCK 

I ,-•>- ' '.$ 
BOOLEAN-AND 

IT3GLEAN-EXOK 

OOOLEA'S-OR 

BOTTOM 

BY 

CALL 

CANCEL 
CD 
CF 
CH 

CHARACTERS 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

CODE-SET 

COLLATING 



COMMUNICATION 

COMP 

COMP-1 

COMP-2 

COMP-3 

COMP-4 | 

COMPUTATIONAL 

( -ji IT'.T..' -,, : 

( i> . n \'-r,,'i -, 

-• , v\ ' ION \i , I 

COMPUTE 

CONFIGURATION 

CONTAINS 

CONTROL 

CONTROLS 

CONVERSION 

COPY 

CORR 

CORRESPONDING 

COUNT 

CURRENCY 

DATA 

DATE 

DATE-COMPILED 

DATE-WRITTEN 

DAY 

dai of vm 

DE 

DEADLOCK 

DEBUG-CONTENTS 

DEBUG-ITEM 

DEBUG- LINE 

DEBUG-NAME 

DEBUG NUM C-CONTF.1 i 

DEBUG-SUB-1 

DEBUG-SUB-2 

DEBUG-SUB-3 

DEBUGGING 

DECIMAL-POINT 

DEC LAP—ATI V ES 

DELETE 

DELIMITED 

DELIMITER 

DEPENDING 

DESCENDING 

DESTINATION 

DETAIL 



64 
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Hft-IIFD i y 



DISABLE 


HASHING 


DISPLAY 


HEADING 


DIVIDE 


HIGH-VALUE 


DIVISION 


HIGH-VALUES 


DOWN 




DUPLICATES 




DYNAMIC 


1-0 




I-O-CONTROL 


EGI 


IDENTIFICATION 


ELSE 


IF 


EMI 


IN 


ENABLE 


INDEX 


END 


INDEXED 


1 END-IF 


INDICATE 


END-OF-PAGE 


INITIAL 


j IN t r 0! 


INITIALIZE 


1 VND-SI RCH 


INITIATE 


ENDING 


INPUT 


ENTER 


INPUT-OUTPUT 


ENVIRONMENT 


INSPECT 


EOP 


INSTALLATION 


EQUAL 


INTO 


flHHf 


INVALID 


ERROR 


IS 


ESI 




EVERY 


JUST 


EXCEEDS 


JUSTIFIED 


EXCEPTION 




EXIT 




EXTEND 


KEY 


EXTERNAL 






LABEL 


FD 


LAST 


FILE 


LEADING 


FILE-CONTROL 


LEFT 


FILES 


LENGTH 


FILLER 


LESS 


FINAL 


LIMIT 


FIRST 


LIMITS 


FOOTING 


LINAGE 


FOR 


LINAGE-COUNTER 


FROM 


LINE 




LINE-COUNTER 


GENERATE 


LINES 


GIVING 


LINKAGE 


GO 


LOCK 


GREATER 


LOW-VALUE 


GROUP 


LOW-VALUES 



MEMORY 


QUEUE 


MERGE 


QUOTE 


MESSAGE 


QUOTES 


MODE 




MODULES 


RANDOM 


MOVE 


RD 


MULTIPLE 


READ 


MULTIPLY 


REALMS 




RECEIVE 


NATIVE 


RECORD 


NEGATIVE 


RECORDING 


NEXT 


RECORDS 


NO 


REDEFINES 


NOT 


REEL 


NUMBER 


REFERENCES 


NUMERIC 


RELATIVE 


NUMERIC-EDITED 


RELEASE 




REMAINDER 


OB JECT-COM PUTER 


REMOVAL 


OB IEC1 PROGRAM 


RENAMES 


OCCURS 


REPLACE 


OF 


REPLACING 


OFF 


REPORT 


OMITTED 


REPORTING 


ON 


REPORTS 


OPEN 


RERUN 


OPTIONAL 


RESERVE 


OR 


RESET 


ORDER 


RETURN 


ORGANIZATION 


REVERSED 


OTHER 


REWIND 


OUTPUT 


REWRITE 


OVERFLOW 


RF 




RH 


PAGE 


RIGHT 


PAGE-COUNTER 


ROUNDED 


PERFORM 


RUN 


PF 




PH 


SAME 


PIC 


SD 


PICTURE 


SEARCH 


PLUS 


SECONDARY-STORAGE 


POINTER 


SECTION 


POSITION 


anuuitii i 


POSITIVE 


SEGMENT 


PRINTING 


SEGMENT-LIMIT 


PROCEDURE 


SELECT 


PROCEDURES 


SEND 


PROCEED 


SENTENCE 


PROGRAM 


SEPARATE 


PROGRAM-ID 


SEQUENCE 
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SEQUENTIAL 


TIMES 


SET 


TO 


SIGN 


TOP 


SIZE 


TRA E-ON 


SORT 


TRACE-OFF 


SORT-MERGE 


TRAILING 


SOURCE 


TRUE 


SOURCE-COMPUTER 


TYPE 


SPACE 




SPACES 


UNEQUAL 


SPECIAL-NAMES 


UNIT 


STANDARD 


UNSTRING 


STANDARD-1 


UNTIL 


START 


UP 


STATUS 


UPON 


STOP 


USAGE 


STRING 


USE 


SUB-SCHEMA, 


USING 


SUB-QUEUE-1 




SUB-QUEUE-2 


VALUE 


SUB-QUEUE-3 


VALUES 


SUBTRACT 


VARYING 


SUM 




SI PER VISOR 


WHEN 


SUPPRESS 


WITH 


SUSPEND 


WORD-ADDRESS 


SYMBOLIC 


WORDS 


SYNC 


WORKING-STORAGE 


SYNCHRONIZED 


WRITE 


TABLE 


ZERO 


TALLYING 


ZEROES 


TAPE 


ZEROS 


TERMINAL 




TERMINATE 


+ 


TEST 


- 


TEXT 


* 


THAN 


/ 


THEN 


*# 


THROUGH 


11; 


THRU 


= 


TIME 
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STANDARD CHARACTER SETS 





Dbelay 


CDC 


ASCII 






Exttfittl 


Sub— I 


10291 




COBOL 


Coda 


Griptltc 


1026] 


BCD 
Cod* 


(octal | 




00' 


: Icolonl" 


»2 


CO 


: Icolonl" 


8-2 


072 


B 


01 
02 


B 


12-1 

12-2 


61 


B 


12 1 
12-2 


101 
102 








12-3 


63 




12-3 


103 


D 


04 


D 


12-4 


64 





12-4 


104 


E 


06 


E 


12 5 


65 


E 


126 


106 




OB 






66 




12-6 


106 


G 


07 


G 


12-7 


67 


G 




107 


£ 


10 


*, 


12-8 
12-9 

11-2 


70 
42 


jj 


12-8 
129 

11-2 




M 


15 


M 


11-4 


44 


M 


1M 






16 




TIB 


45 




11-5 







17 





lie 


46 





11-6 







21 


Q 


11-8 


50 





n-8 


121 




22 




11-9 


61 




11-9 




S 


23 


S 


0-2 


22 
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